object FRegistration: TFRegistration Left = 323 Top = 319 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Register Me Please!' ClientHeight = 263 ClientWidth = 404 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 404 Height = 263 Align = alClient Color = clWhite Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 10 Top = 10 Width = 109 Height = 24 Caption = 'Registration' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label2: TLabel Left = 8 Top = 8 Width = 109 Height = 24 Caption = 'Registration' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label3: TLabel Left = 8 Top = 40 Width = 160 Height = 42 Caption = 'Just click on the below link'#13#10'to purchase your copy online'#13#10'toda' + 'y!' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 8 Top = 35 Width = 393 Height = 9 Shape = bsTopLine end object Label4: TLabel Left = 8 Top = 190 Width = 388 Height = 56 Caption = 'This software is a time-elapsed cripple-ware. After 15 days, you' + #39'll lose'#13#10'the ability to save, print, or copy to the clipboard. ' + #13#10'Registered users will receive a key to turn your current copy ' + 'into a'#13#10'full, non-time elapsed version of barcode magic.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel2: TBevel Left = 8 Top = 184 Width = 385 Height = 9 Shape = bsTopLine end object Label5: TLabel Left = 264 Top = 48 Width = 27 Height = 14 Caption = 'Name' end object Label6: TLabel Left = 264 Top = 88 Width = 79 Height = 14 Caption = 'Registration Key' end object lReg: TLabel Left = 1 Top = 1 Width = 402 Height = 14 Align = alTop Alignment = taRightJustify Caption = 'This copy is currently unregistered.' Transparent = True end object LDays: TLabel Left = 1 Top = 15 Width = 402 Height = 14 Align = alTop Alignment = taRightJustify Caption = 'You have 15 days left.' Transparent = True end object Label7: TLabel Left = 8 Top = 126 Width = 194 Height = 56 Caption = 'Secure online ordering'#13#10'Visa/Mastercard/American Express'#13#10'Check ' + 'or Money Order'#13#10'Internet Connection Required' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object LinkLabel1: TLinkLabel Left = 54 Top = 84 Width = 122 Height = 13 Cursor = crHandPoint Hint = 'http://www.barcodemagic.com/purchase.html' Caption = 'Click here to register now!' ParentFont = False ParentShowHint = False ShowHint = True Link = 'http://www.barcodemagic.com/purchase.html' VisitedFont.Charset = DEFAULT_CHARSET VisitedFont.Color = clRed VisitedFont.Height = -11 VisitedFont.Name = 'MS Sans Serif' VisitedFont.Style = [fsUnderline] UnVisitedFont.Charset = DEFAULT_CHARSET UnVisitedFont.Color = clBlue UnVisitedFont.Height = -11 UnVisitedFont.Name = 'MS Sans Serif' UnVisitedFont.Style = [fsUnderline] Visited = False end object Bevel3: TBevel Left = 248 Top = 48 Width = 9 Height = 129 Shape = bsLeftLine end object LinkLabel2: TLinkLabel Left = 38 Top = 100 Width = 189 Height = 13 Cursor = crHandPoint Hint = 'http://www.barcodemagic.com/purchase.html' Caption = 'or visit: http://www.barcodemagic.com/' ParentFont = False ParentShowHint = False ShowHint = True Link = 'http://www.barcodemagic.com/purchase.html' VisitedFont.Charset = DEFAULT_CHARSET VisitedFont.Color = clRed VisitedFont.Height = -11 VisitedFont.Name = 'MS Sans Serif' VisitedFont.Style = [fsUnderline] UnVisitedFont.Charset = DEFAULT_CHARSET UnVisitedFont.Color = clBlue UnVisitedFont.Height = -11 UnVisitedFont.Name = 'MS Sans Serif' UnVisitedFont.Style = [fsUnderline] Visited = False end object eName: TEdit Left = 264 Top = 64 Width = 121 Height = 22 TabOrder = 0 OnKeyDown = eNameKeyDown end object ePassword: TEdit Left = 264 Top = 104 Width = 121 Height = 22 TabOrder = 1 OnKeyDown = ePasswordKeyDown end object RegisterBtn: TBitBtn Left = 301 Top = 128 Width = 84 Height = 25 Caption = 'Register It!' TabOrder = 2 OnClick = RegisterBtnClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333377F3333333333000033334224333333333333 337337F3333333330000333422224333333333333733337F3333333300003342 222224333333333373333337F3333333000034222A22224333333337F337F333 7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224 33333337F73337F337F33333000033A33333A222433333337333337F337F3333 0000333333333A222433333333333337F337F33300003333333333A222433333 333333337F337F33000033333333333A222433333333333337F337F300003333 33333333A222433333333333337F337F00003333333333333A22433333333333 3337F37F000033333333333333A223333333333333337F730000333333333333 333A333333333333333337330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object OkayBtn: TButton Left = 312 Top = 234 Width = 75 Height = 25 Caption = '&Okay' ModalResult = 1 TabOrder = 3 OnClick = OkayBtnClick end end end